home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.02 Feb 91 / 4D Graphics Source / WriteAt.p < prev    next >
Encoding:
Text File  |  1989-04-20  |  266 b   |  17 lines  |  [TEXT/MPS ]
  1. Unit WriteAt;
  2.  
  3. INTERFACE
  4.     USES    
  5.         Memtypes,Quickdraw,OSIntf,Toolintf,packintf;
  6.         
  7.     Procedure WriteItAt(var h1,v1: Integer;var s:Str255);
  8.     
  9. IMPLEMENTATION
  10.     Procedure WriteItAt(var h1,v1: Integer;var s:Str255);
  11.     
  12.     begin
  13.         MoveTo(h1,v1);
  14.         DrawString(s);
  15.     end;
  16. END.
  17.